﻿Imports System.Data.SqlClient

Public Class clsPARAMETROS
    Private mintENTRADA_DATOS As Integer
    Public Property ENTRADA_dATOS() As Integer
        Get
            Return mintENTRADA_DATOS
        End Get
        Set(ByVal value As Integer)
            mintENTRADA_DATOS = value
        End Set
    End Property
    Public Sub New()
        mintENTRADA_DATOS = 0
    End Sub
    Public Sub CARGA_PARAMETROS()

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn
        cmdBuscar.CommandText = "SELECT * From PARAMETROS WHERE IDPARAMETRO=1 " 

        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        If rdBuscar.Read() Then
            mintENTRADA_DATOS = rdBuscar("ENTRADA_DATOS")

        End If

    End Sub

End Class
